home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
726-750
/
729
/
bbbbs
/
bbbbs54.lzh
/
rexx
/
Contents.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1992-04-21
|
922b
|
33 lines
/* $VER: 5.1 Contents.rexx 21 Apr 1992 (21.4.92)
copyright 1990-92 Richard Lee Stockton FREELY DISTRIBUTABLE
Required in C: directory arc dms lha unzip zoo
*/
PARSE ARG argname emptyflag .
IF emptyflag~=1 THEN CALL DELETE('RAM:CONTENTS')
endtest=UPPER(RIGHT(argname,4))
arcomm=''
IF endtest='.ARC' THEN arcomm='arc'
IF endtest='.ZOO' THEN arcomm='zoo'
IF arcomm~='' THEN arcomm=arcomm 'v' argname
ELSE IF endtest='.DMS' THEN arcomm='dms VIEW' argname
ELSE IF endtest='.ZIP' THEN arcomm='unzip -v' argname
ELSE IF endtest='.LHA' | endtest='.LZH' | endtest='.RUN' THEN
arcomm='lha -N v' argname
arcomm='CD RAM:' || '0A'x || arcomm
IF emptyflag~=1 THEN
DO
CALL CLOSE(STDOUT)
CALL OPEN(STDOUT,'RAM:CONTENTS','W')
END
ADDRESS COMMAND arcomm
IF emptyflag~=1 THEN
DO
CALL CLOSE(STDOUT)
IF WORD(STATEF('RAM:CONTENTS'),2)=0 THEN CALL Contents.rexx(argname 1)
END
/* Contents.rexx */